home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / general / File.st < prev    next >
Text File  |  2002-10-27  |  716b  |  44 lines
  1. Class File :SequenceableCollection
  2. [
  3.    modeCharacter
  4.       <primitive 133 self 0>
  5. |
  6.    modeInteger
  7.       <primitive 133 self 2>
  8. |
  9.    modeString
  10.       <primitive 133 self 1>
  11. |
  12.    at: aPosition
  13.       <primitive 135 self aPosition>.
  14.       ^ self read
  15. |
  16.    at: aPosition put: anObject
  17.       <primitive 135 self aPosition>.
  18.       ^ self write: anObject
  19. |
  20.    currentKey
  21.       ^ <primitive 136 self>
  22. |
  23.    first
  24.       ^ self at: 0
  25. |
  26.    next
  27.       ^ self read
  28. |
  29.    open: aName
  30.       <primitive 130 self aName 'r' >
  31. |
  32.    open: aName for: opType
  33.       <primitive 130 self aName opType >
  34. |
  35.    read
  36.       ^ <primitive 131 self>
  37. |
  38.    size
  39.       ^ <primitive 134 self>
  40. |
  41.    write: anObject
  42.       ^ <primitive 132 self anObject>
  43. ]
  44.